home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 245 / gfatip16 / getdrive.lst < prev    next >
File List  |  1988-10-10  |  377b  |  14 lines
  1. ' GFATIP16 .LST Library Source Code is Copyright 1988 Marathon Computer Press
  2. ' Procedure Get_drive
  3. ' Dependencies : None
  4. '
  5. ' This little GEM will return the values needed by the Fsel_input procedure.
  6. ' Take note of how it works..
  7. '
  8. '
  9. Procedure Get_drive
  10.   Currentdrive%=Gemdos(&H19)
  11.   Currentdrive$=Chr$(Asc("A")+Currentdrive%)
  12.   Gfadrive%=Currentdrive%+1
  13. Return
  14.